IBM InfoROM for OS/2 Beta 1995 January/IBM InfoROM for OS2 Beta 1-1995.ISO/testcert/mmedia/system/ap2/scripts/x1____i5.p2s

Text File | 1994-01-07 | 17.1 KB | 734 lines

# DESCRIPTION:
# --------------------------------------------------------------
#
# open and switch through all valid states for cdxa in two
# different processes, only one sound card, one cd with xa disc,
# will involve resource contention for sound card and cd. To
# include masteraudio set/query for each process.
# [switch mode each device[switch state each device]].
#
#   NOTE: Use a different XA file for each load.
#
# --------------------------------------------------------------
@PROCESSES=2
@EVENTS={THREAD1=1,THREAD2=0,BREAKPOINT=0}

defaultconnection cdxa make type xa stream to ampmix totype amp stream wait

@PROCESS 1
@BREAK              A CDXA WILL NEED TO BE IN THE DEFAULT CD-ROM DRIVE
@SET_EVENT BREAKPOINT 1

# set masteraudio level for session to 10% - will affect both
# processes

masteraudio volume 10

# open cdxa device non-exclusively

open cdxa alias cdxa_1 shareable notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
@WAIT_NOTIFY 1 45000
@WAIT_NOTIFY 21 45000

# no way of knowing which open (in which process) was the last
# to complete. All opens were non-exclusive. Need to do an
# acquire to make sure process 1 has the active instance

acquire cdxa_1 wait
@WAIT_PASSDEVICE cdxa_1 45000

# load element from *LOCAL* CD device and play asynchronously
# for 10 seconds


# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# --------------------------------------------------------------
#
# The \PATH\FILENAME.EXT on the following command line will need
# to be changed to a path and filename on your test CDXA Disk.
#                     --- SEE BELOW ---
# --------------------------------------------------------------
# \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

load cdxa_1 \PATH\FILENAME.EXT wait
status cdxa_1 mode wait
=stopped

play cdxa_1 from 10000 to 40000
status cdxa_1 mode wait
=playing
@PAUSE 10000

@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000

# regain control

acquire cdxa_1 wait
@WAIT_PASSDEVICE cdxa_1 45000

# load element from *LOCAL* CD device and play asynchronously
# for 10 seconds

# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# --------------------------------------------------------------
#
# The \PATH\FILENAME.EXT on the following command line will need
# to be changed to a path and filename on your test CDXA Disk.
#                     --- SEE BELOW ---
# --------------------------------------------------------------
# \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

load cdxa_1 \PATH\FILENAME.EXT wait
status cdxa_1 mode wait
=stopped

play cdxa_1 from 10000 to 40000
status cdxa_1 mode wait
=playing

@PAUSE 10000
@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000

# regain control

acquire cdxa_1 wait
@WAIT_PASSDEVICE cdxa_1 45000

# load element from *LOCAL* CD device and play asynchronously
# for 10 seconds

# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# --------------------------------------------------------------
#
# The \PATH\FILENAME.EXT on the following command line will need
# to be changed to a path and filename on your test CDXA Disk.
#                     --- SEE BELOW ---
# --------------------------------------------------------------
# \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

load cdxa_1 \PATH\FILENAME.EXT wait
status cdxa_1 mode wait
=stopped

play cdxa_1 from 10000 to 40000
status cdxa_1 mode wait
=playing

@PAUSE 10000
@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000

# regain control

acquire cdxa_1 wait
@WAIT_PASSDEVICE cdxa_1 45000

# enable internal speaker by setting connector for associated
# ampmixer instance

connector cdxa_1 enable type speakers notify
=!Connector type is not supported by this device.

# load an element from MTSDEMO disc on *LOCAL* drive

# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# --------------------------------------------------------------
#
# The \PATH\FILENAME.EXT on the following command line will need
# to be changed to a path and filename on your test CDXA Disk.
#                     --- SEE BELOW ---
# --------------------------------------------------------------
# \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

load cdxa_1 \PATH\FILENAME.EXT wait
status cdxa_1 mode wait
=stopped

# cue cdxa for play

cue cdxa_1 output notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CUE #3
@WAIT_NOTIFY 3 45000

# play cdxa asynchronously for 3 seconds

play cdxa_1
status cdxa_1 mode wait
=playing
@PAUSE 3000

# close cdxa device instance

close cdxa_1 wait

# open another cdxa device instance non-exclusively

open cdxa alias cdxa_1 shareable wait
status cdxa_1 mode wait
=not ready

# load an element from MTSDEMO disc on *LOCAL* drive

@WAIT_PASSDEVICE cdxa_1 45000

# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# --------------------------------------------------------------
#
# The \PATH\FILENAME.EXT on the following command line will need
# to be changed to a path and filename on your test CDXA Disk.
#                     --- SEE BELOW ---
# --------------------------------------------------------------
# \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

load cdxa_1 \PATH\FILENAME.EXT wait
status cdxa_1 mode wait
=stopped

# cue cdxa for play

cue cdxa_1 output wait

# play cdxa for 5 seconds

play cdxa_1 notify
+MM_MCINOTIFY MCI_NOTIFY_ABORTED MCI_PLAY
@PAUSE 5000

@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 60000

# recover control of resource (cd device/acpa) from process 1.
# play of cdxa will resume. allow play to continue for
# 5 seconds

acquire cdxa_1 wait
@WAIT_PASSDEVICE cdxa_1 45000
@PAUSE 5000

# pause play of cdxa

pause cdxa_1 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PAUSE #5
@WAIT_NOTIFY 5 45000

@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000

# recover exclusive control of resource (cd device/acpa) from
# process 1

acquire cdxa_1 exclusive wait

@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000

# allow play to resume for 5 seconds

resume cdxa_1 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RESUME
@PAUSE 5000

# release exclusive control of resource

release cdxa_1 wait

@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000


acquire cdxa_1 wait
@WAIT_PASSDEVICE cdxa_1 45000

# immediately stop play of cdxa

stop cdxa_1 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_STOP #8
@WAIT_NOTIFY 8 45000

# release exclusive control of resource

release cdxa_1 wait

@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000

acquire cdxa_1 wait
@WAIT_PASSDEVICE cdxa_1 45000

# seek to start of media (currently loaded file)

seek cdxa_1 to start notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK #10
@WAIT_NOTIFY 10 45000

# release exclusive control of resource

release cdxa_1 wait

@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000

# recover control of resource (cd device/acpa) from process 1

acquire cdxa_1 wait
@WAIT_PASSDEVICE cdxa_1 45000

# query status then disable speakers connector (disables internal
# speaker)

connector cdxa_1 query type speakers wait
=!Connector type is not supported by this device.

# play for 3 seconds

play cdxa_1 notify
+MM_MCINOTIFY MCI_NOTIFY_ABORTED MCI_PLAY
@PAUSE 3000

@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000

# recover exclusive control of resource (cd device/acpa) from process 1

acquire cdxa_1 exclusive wait
@WAIT_PASSDEVICE cdxa_1 45000

# pause the play

pause cdxa_1 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PAUSE #14
@WAIT_NOTIFY 14 45000

# release exclusive control of resource

release cdxa_1 wait

@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000

# recover exclusive control of resource (cd device/acpa) from process 1

acquire cdxa_1 exclusive wait
@WAIT_PASSDEVICE cdxa_1 45000

# resume play for 3 seconds

resume cdxa_1 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RESUME
@PAUSE 3000

# release exclusive control of resource

release cdxa_1 wait

@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000

# recover exclusive control of resource (cd device/acpa) from process 1

acquire cdxa_1 exclusive wait
@WAIT_PASSDEVICE cdxa_1 45000

# stop play

stop cdxa_1 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_STOP #17
@WAIT_NOTIFY 17 45000

# release exclusive control of resource (cd device/acpa) from process 1

release cdxa_1 wait

@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000


# instance is inactive. Do some statuses

status cdxa_1 time format wait
=mmtime

status cdxa_1 ready wait
=FALSE

# recover control of resource (cd device/acpa) from process 1

acquire cdxa_1 wait
@WAIT_PASSDEVICE cdxa_1 45000

# seek to end of media (currently loaded element)

seek cdxa_1 to end notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK #19
@WAIT_NOTIFY 19

@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000

# close cdxa instance for process 1 (xa1)

close cdxa_1 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #20
@WAIT_NOTIFY 20 45000

@SET_EVENT THREAD1 0
@SET_EVENT THREAD2 1
@WAIT_EVENT THREAD1 45000





@PROCESS 2
@WAIT_EVENT BREAKPOINT

# open a non-exclusive cdxa instance for process 2

open cdxa alias cdxa_2 shareable notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #21

@WAIT_EVENT THREAD2 45000

# recover control from process 1

acquire cdxa_2 wait
@WAIT_PASSDEVICE cdxa_2 45000

# load element from *LOCAL* CD device and play asynchronously
# for 10 seconds

# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# --------------------------------------------------------------
#
# The \PATH\FILENAME.EXT on the following command line will need
# to be changed to a path and filename on your test CDXA Disk.
#                     --- SEE BELOW ---
# --------------------------------------------------------------
# \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

load cdxa_2 \PATH\FILENAME.EXT wait
status cdxa_2 mode wait
=stopped

play cdxa_2 from 10000 to 40000

@PAUSE 10000
@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2 45000

# regain control

acquire cdxa_2 wait
@WAIT_PASSDEVICE cdxa_2 45000

# load element from *LOCAL* CD device and play asynchronously
# for 10 seconds

# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# --------------------------------------------------------------
#
# The \PATH\FILENAME.EXT on the following command line will need
# to be changed to a path and filename on your test CDXA Disk.
#                     --- SEE BELOW ---
# --------------------------------------------------------------
# \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

load cdxa_2 \PATH\FILENAME.EXT wait
status cdxa_2 mode wait
=stopped

play cdxa_2 from 10000 to 40000
status cdxa_2 mode wait
=playing
@PAUSE 10000
@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2 45000

# regain control

acquire cdxa_2 wait
@WAIT_PASSDEVICE cdxa_2 45000


# load element from *LOCAL* CD device and play asynchronously
# for 10 seconds

# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# --------------------------------------------------------------
#
# The \PATH\FILENAME.EXT on the following command line will need
# to be changed to a path and filename on your test CDXA Disk.
#                     --- SEE BELOW ---
# --------------------------------------------------------------
# \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

load cdxa_2 \PATH\FILENAME.EXT wait
status cdxa_2 mode wait
=stopped

play cdxa_2 from 10000 to 40000
status cdxa_2 mode wait
=playing
@PAUSE 10000
@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2 45000

# query the session masteraudio setting. Remember process 1
# changed it to 10%. Now change it to 50%

masteraudio query volume wait
=10
masteraudio volume 50


# regain control

acquire cdxa_2 wait
@WAIT_PASSDEVICE cdxa_2 45000

# change time format to milliseconds format

set cdxa_2 time format milliseconds wait

# load an .xa file from *LOCAL* disc

# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# --------------------------------------------------------------
#
# The \PATH\FILENAME.EXT on the following command line will need
# to be changed to a path and filename on your test CDXA Disk.
#                     --- SEE BELOW ---
# --------------------------------------------------------------
# \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

load cdxa_2 \PATH\FILENAME.EXT wait
status cdxa_2 mode wait
=stopped

# seek to 10 seconds into currently loaded element

seek cdxa_2 to 10000 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK #23
@WAIT_NOTIFY 23 45000

# play asynchronously for 3 seconds

play cdxa_2
@PAUSE 3000

# close device instance

close cdxa_2 wait

# open cdxa device instance non-exclusively

open cdxa alias cdxa_2 shareable wait
status cdxa_2 mode wait
=not ready

# load an .xa file from *LOCAL* disc

# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
# --------------------------------------------------------------
#
# The \PATH\FILENAME.EXT on the following command line will need
# to be changed to a path and filename on your test CDXA Disk.
#
# --------------------------------------------------------------
# \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

load cdxa_2 \PATH\FILENAME.EXT wait
status cdxa_2 mode wait
=stopped

# cue for play

cue cdxa_2 output wait

# play for 3 seconds

play cdxa_2 notify
+MM_MCINOTIFY MCI_NOTIFY_ABORTED MCI_PLAY
@PAUSE 3000

@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2 45000

# recover control from process 1

acquire cdxa_2 wait
@WAIT_PASSDEVICE cdxa_2 45000
pause cdxa_2 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PAUSE #25
@WAIT_NOTIFY 25 45000

@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2 45000
@WAIT_PASSDEVICE cdxa_1 60000

# try to play cdxa device instance (expect error as process 1 has
# control)

play cdxa_2 notify
=!Instance inactive.

# try to gain control of resource (cd device/acpa) held exclusively
# by process 1 (expect error)

acquire cdxa_2 wait
=!Device is locked.

@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2 45000

# recover control from process 1

acquire cdxa_2 wait
@WAIT_PASSDEVICE cdxa_2 45000

# resume play for 3 seconds

resume cdxa_2 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RESUME
@PAUSE 3000

@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2 45000

# recover control from process 1

acquire cdxa_2 wait
@WAIT_PASSDEVICE cdxa_2 45000
stop cdxa_2 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_STOP #28
@WAIT_NOTIFY 28 45000

@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2 45000

# recover control from process 1

acquire cdxa_2 wait
@WAIT_PASSDEVICE cdxa_2 45000
seek cdxa_2 to start notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK #30
@WAIT_NOTIFY 30 45000

@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2 45000

# recover control from process 1

acquire cdxa_2 wait
@WAIT_PASSDEVICE cdxa_2 45000

# play for 3 seconds

play cdxa_2 notify
+MM_MCINOTIFY MCI_NOTIFY_ABORTED MCI_PLAY
@PAUSE 3000

@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2 45000

# recover control from process 1

acquire cdxa_2 wait
@WAIT_PASSDEVICE cdxa_2 45000
pause cdxa_2 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PAUSE #34
@WAIT_NOTIFY 34 45000

@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2 45000

# recover control from process 1

acquire cdxa_2 wait
@WAIT_PASSDEVICE cdxa_2 45000

# resume play for 3 seconds

resume cdxa_2 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RESUME
@PAUSE 3000

@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2 45000

# recover control from process 1

acquire cdxa_2 wait
@WAIT_PASSDEVICE cdxa_2 45000

set cdxa_2 time format milliseconds wait

stop cdxa_2 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_STOP #37
@WAIT_NOTIFY 37 45000

@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2


# Do some statuses on the inactive instance

@WAIT_PASSDEVICE cdxa_1 60000
status cdxa_2 time format wait
=milliseconds

status cdxa_2 ready wait
=FALSE

@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1
@WAIT_EVENT THREAD2 45000

# recover control from process 1

acquire cdxa_2 wait
@WAIT_PASSDEVICE cdxa_2 45000

seek cdxa_2 to end notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK #39
@WAIT_NOTIFY 39

# close cdxa device instance for this process

close cdxa_2 notify
+MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #40
@WAIT_NOTIFY 40 45000

@SET_EVENT THREAD2 0
@SET_EVENT THREAD1 1